﻿Namespace Status

    Public Class Status

        Private _bezeichnung As String
        Private _vorgang As String

        Public Sub New()
        End Sub

        Public Property Bezeichnung As String
            Get
                Return _bezeichnung
            End Get
            Set(ByVal value As String)
                _bezeichnung = value
            End Set
        End Property

        Public Property Vorgang As String
            Get
                Return _vorgang
            End Get
            Set(ByVal value As String)
                _vorgang = value
            End Set
        End Property

    End Class

End Namespace